home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ Startmenu Items Options.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  1.7 KB  |  50 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Start menu\Visible Items"
  5. "NAME"="Options"
  6. "VERSION"="1.0"
  7. "LANGUAGE"="VBScript"
  8. "AUTHOR"="Neil R. Turner (totalxs@hotmail.com) for Xteq Systems"
  9. "CONTACTURL"="http://www.128moorlane.freeserve.co.uk/"
  10. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  11. "TEXT 1"="Show user-created folders in Start menu"
  12. "TEXT 2"="Show common groups in Start->Programs"
  13. "DESCRIPTION 1"="Use this plug-in to change some special options on the Start Menu."
  14. "DESCRIPTION 2"="User-created folders are folders that are created in the Start Menu folder (e.g. "C:\Windows\Start Menu") and are normally displayed at the top of "Programs"."
  15. "DESCRIPTION 3"="Context menus in the Start menu are only available if you are using Windows 98 or Internet Explorer 4 with ActiveDesktop."
  16. "COMMENT 1"="Thanks to Jon-Roar Selenius [jseleniu@online.no] for spotting the "Recent Documents always empty" bug."
  17.  
  18. sP="HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\"
  19.  
  20. SUB Plugin_Initialize
  21.  i=RegReadValue(sp&"NoStartMenuSubFolders") 
  22.  If IsEmpty(i) or i=0 then SetUIElement 1,true
  23.  
  24.  i=RegReadValue(sp&"NoCommonGroups") 
  25.  if IsEmpty(i) or i=0 then SetUIElement 2,true 
  26.  
  27. END SUB
  28.  
  29. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  30.  Call WriteIt(1,sp&"NoStartMenuSubFolders")
  31.  Call WriteIt(2,sp&"NoCommonGroups")
  32.  
  33.  Call IndicateSettingChange()
  34. END SUB
  35.  
  36. Sub WriteIt(ITM,PATH)
  37.   b=GetUIElement(ITM)
  38.   if b=true then
  39.      s=RegReadValue(PATH)
  40.      if IsEmpty(s)=false then
  41.         Call RegDeleteValue(Path)
  42.      end if
  43.   else
  44.     Call RegWriteValue(PATH,1,2)
  45.   end if
  46. End Sub
  47.  
  48. SUB Plugin_Terminate
  49. END SUB
  50.